J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/G39F/kanouM.Dxr/00047_“›—À€.ls

Text File | 1998-01-22 | 3.7 KB | 162 lines

global mset, lset, volkey, volsprit, soundset, p_name, nextkey, backkey, exitkey, gmenukey, infokey, zoomkey, moveflg, maxflg, gno, i, s, listkey1, spno, cntpage, maxpage, lpcastno, rpcastno, lpno, rpno

on startMovie
  set mycursor to [1, 96]
  repeat with i = 7 to 8
    set the cursor of sprite i to mycursor
  end repeat
  repeat with i = 10 to 11
    set the cursor of sprite i to mycursor
  end repeat
  repeat with i = 17 to 31
    set the cursor of sprite i to mycursor
  end repeat
  set lpcastno to 100
  set rpcastno to 170
  set lpno to lpcastno
  set rpno to rpcastno
  set maxflg to 0
  set cntpage to 0
  set maxpage to 64
  set the visible of sprite 12 to 0
  set the visible of sprite 13 to 0
  repeat with i = 33 to 44
    set the visible of sprite i to 0
  end repeat
  set listkey1 to ["p1", "p2", "p3", "p4", "p5", "p6", "p7", "p8", "p9", "p10", "p11", "p12", "p13", "p14", "p15", "p16", "p17", "p18", "p19", "p20", "p21", "p22", "p23", "p24", "p25", "p26", "p27", "p28", "p29", "p30", "p31", "p32", "p33", "p34", "p35", "p36", "p37", "p38", "p39", "p40", "p41", "p42", "p43", "p44", "p45", "p46", "p47", "p48", "p49", "p50", "p51", "p52", "p53", "p54", "p55", "p56", "p57", "p58", "p59", "p60", "p61", "p62", "p63", "p64"]
  puppetSound(4, 1)
end

on donext
  set cntpage to cntpage + 1
  if cntpage > maxpage then
    set cntpage to maxpage
    set maxflg to 1
  else
    set maxflg to 0
  end if
  set lpno to lpcastno + cntpage
  set rpno to rpcastno + cntpage
end

on doback
  set cntpage to cntpage - 1
  if cntpage < 0 then
    set cntpage to 0
  else
  end if
  set lpno to lpcastno + cntpage
  set rpno to rpcastno + cntpage
end

on visimenusprite
  repeat with i = 20 to 31
    if rollOver(i) then
      set the visible of sprite (i + 13) to 1
      next repeat
    end if
    set the visible of sprite (i + 13) to 0
  end repeat
end

on visisprite
  repeat with i = 10 to 11
    if rollOver(i) then
      set the visible of sprite (i + 2) to 1
      exit
      next repeat
    end if
    set the visible of sprite (i + 2) to 0
  end repeat
end

on pushsound
  puppetSound(4, 1)
  puppetSound(4, "ﾃｽﾂ湘伉｡")
end

on changpage
  set cntpage to spno
  set lpno to lpcastno + cntpage
  set rpno to rpcastno + cntpage
  go("pR")
end

on changhelp
  pushsound()
  repeat while the stillDown
    puppetSprite(15, 1)
    set the memberNum of sprite 15 to 29
    updateStage()
  end repeat
  puppetSprite(15, 0)
  go("help0")
end

on changmenu
  set lpno to lpcastno
  set rpno to rpcastno
  set cntpage to 0
  pushsound()
  repeat while the stillDown
    puppetSprite(14, 1)
    set the memberNum of sprite 14 to 27
    updateStage()
  end repeat
  puppetSprite(14, 0)
  set the visible of sprite 12 to 0
  set the visible of sprite 13 to 0
  go("p00")
end

on changp0
  set lpno to lpcastno
  set rpno to rpcastno
  set cntpage to 0
  pushsound()
  repeat while the stillDown
    puppetSprite(12, 1)
    set the memberNum of sprite 12 to 17
    updateStage()
  end repeat
  puppetSprite(12, 0)
  puppetSprite(4, 1)
  puppetSprite(5, 1)
  set the memberNum of sprite 4 to lpno
  set the memberNum of sprite 5 to rpno
  puppetTransition(6, 8)
  updateStage()
  go("p0")
end

on domenuback
  set lpno to lpcastno
  set rpno to rpcastno
  set cntpage to 0
  puppetSprite(4, 0)
  puppetSprite(5, 0)
  puppetSound(4, 1)
  puppetSound(4, "ﾆ陳ｺ竄ｬﾅｸ")
  repeat while the stillDown
    puppetSprite(13, 1)
    set the memberNum of sprite 13 to 18
    updateStage()
  end repeat
  puppetSprite(13, 0)
  go("m0")
end

on doquit
  pushsound()
  repeat while the stillDown
    puppetSprite(16, 1)
    set the memberNum of sprite 16 to 31
    updateStage()
  end repeat
  puppetSprite(16, 0)
  sound stop 1
  sound stop 2
  sound stop 4
  go("Ending")
end